SetGeodeticParametersCoord Subroutine

private subroutine SetGeodeticParametersCoord(coord, prime_meridian)

Uses

Set parameters for Geodetic reference system

longitude, with respect to Greenwich, of the prime meridian

Arguments

Type IntentOptional Attributes Name
type(Coordinate), intent(inout) :: coord
real(kind=float), intent(in) :: prime_meridian

Source Code

SUBROUTINE SetGeodeticParametersCoord &
!
(coord, prime_meridian)

USE Units, ONLY: &
! Imported parameters:
degToRad

IMPLICIT NONE

!Arguments with intent (in):
!!longitude, with respect to Greenwich, of the prime meridian
REAL (KIND = float), INTENT (IN) :: prime_meridian ![deg]
                                                   

! Arguments with intent (inout):
TYPE (Coordinate), INTENT (INOUT) :: coord

!------------end of declaration------------------------------------------------

CALL SetGeodeticParametersSystem (coord % system, prime_meridian )

END SUBROUTINE SetGeodeticParametersCoord